Top 10k strings from Enter Spectrum - Issue 13 (1986)(Software Editores)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 "------------------------------"
2 ;" NO QUEDA SITIO PARA MAS FICHAS":
1 truco
1 oUUUUUU_x{v
1 VARIABLES END :
1 TAROT WOMAN RUN WITH THE WOLF STARTSTRUCK DO YOU CLOSE YOUR EYES STARGAZER A LIGHT IN THE BLACK ------------------------------EL HOMBRE DE LOS CARAMELOS I'M CRYING THE HOUSE OF THE RISING SUN BOOM BOOM I'M MAD AGAIN BRING IT ON ME TO ME WE'VE GOTTA GET OUT THIS PLACESTORY OF BO DIDDLEY HOW YOU'WE CHANGED BRIGHT LIGHTS, BIG CITY ROAD RUNNER WORRIED LIFE BLUES IT'S MY LIFE ------------------------------ HOY NO ME PUEDO LEVANTAR NO ME ENSE
1 T$(N)=T$(N+1
1 T$(I)>T$(I+1
1 T$(I)=T$(I+1
1 Software Editores
1 START ADDRESS :
1 PROTRON
1 PRESENTA FICHA CON UN CONTENIDO DE BUSQUEDA
1 PRESENTA EL ENCABEZAMIENTO DE UNA FICHA
1 PP=P(NF)-1
1 PARA MICRODRIVE:
1 P(N)=P(N+1
1 P(N)=P(N)-LB
1 P(I)=P(I+1
1 ORDENAR POR TITULOS
1 ORDENAR POR AUTORES
1 NATTY DREAD BROTHERS IN ARMS COMMUNIQUE DIRE STRAITS LOVE OVER GOLD BAT OUT OF HELL MECANO CRISES FIVE MILES OUT MU
1 N$=("TITULO"
1 MODIFICAR UNA FICHA
1 MMMMMMMMMMMMMMMMMMMM
1 LINEA POR LINEA
1 J - JOYSTICK KEMPSTON
1 HHHHHHHHHHHJ
1 HHHHHHHHHHHHHJ
1 ESPERA UNA RESPUESTA
1 ESCRIBE TITULO
1 ESCRIBE EL NOMBRE DEL AUTOR
1 END ADDRESS :
1 EN LA LECCION PERDIDO EN MI HABITACION CENANDO EN PARIS MAQUILLAJE BODA EN LONDRES ME COLE EN UNA FIESTA LA MAQUINA DE VAPOR ME VOY DE CASA EL FIN DEL MUNDO SOLO SOY UNA PERSONA ------------------------------ BAT OUT OF HELL HOT SUMMER NIGHT HEAVEN CAN WAIT NO PLACE TO GO DOS DE TRES NO ESTA MAL PARADISE FOR CRYING OUT LOUD ------------------------------ PASEN Y VEAN PONTE LA PELUCA MU
1 ECA HINCHABLE EL PADRINO EL HOTEL AZUL EL HOMBRE DE LOS CARAMELOS PON UN MUERTO EN TU MOTOR ------------------------------ SO FAR AWAY MONEY FOR NOTHING WALK OF LIFE YOUR LATEST TRICK WHY WORRY RIDE ACROSS DE RIVER THE MAN'S TOO STRONG ONE WORLD BROTHERS IN ARMS ------------------------------ ONCE UPON A TIME IN THE WEST NEWS WHERE DO YOU THINK YOU GO? COMMUNIQUE LADY WRITER ANGEL OF MERCY PORTOBELLO BELLE SINGLE-HANDED SAILOR FOLLOW ME HOME ------------------------------ DOWN TO THE WATERLINE WATER OF LOVE SETTING ME UP SIX BLADE KNIFE SOUTHBOUND AGAIN SULTA
1 ECA HINCHABLE WISH YOU WERE HERE RISING GREATEST HITS HOUSE OF THE RISING SUN
1 DISCOTECA
1 DIRE STRAITS I
1 D.L.:M-23037-1985
1 D$(PP)=I$:
1 D$(PP)="------------------------------":
1 D$(N)=D$(N+LB):
1 CUIDADO CON LOS AGUJEROS NEGROS DEL HIPERCAMPO
1 CLASIFICAR
1 CAMBIO DE NIVEL CADA 4 PROTRONES
1 Bytes: lkp
1 BUSCAR DATOS
1 BORRAR FICHA
1 BOB MARLEY & THE WAILERS DIRE STRAITS DIRE STRAITS DIRE STRAITS DIRE STRAITS MEAT LOAF MECANO MIKE OLDFIELD MIKE OLDFIELD ORQUESTA MONDRAGON PINK FLOYD RAINBOW SIMON & GARFUNKEL THE ANIMALS
1 BBBBBBBBBF
1 BBBBBBBBBBBBN
1 ADIR MAS FICHAS? (S/N)":
1 ADIR FICHAS"
1 A$(N)=A$(N+1
1 A$(I)>A$(I+1
1 A$(I)=A$(I+1
1 A$"'"60 PRINT A$"
1 A$ 40 PRINT A$"'"50 LET L=
1 @@@~@UUUUU_
1 @@@@@@@@@@F
1 @@@@@@@@@@@@@j
1 ;"TITULO DEL DISCO"
1 ;"SOFTWARE EDITORES";
1 ;"SEGURO QUE QUIERE BORRARLO? S/N"
1 ;"PRESENTA"
1 ;"NOMBRE DEL AUTOR"
1 ;"John vive en Londres"'"JOHN VIVE EN LONDRES"'"john vive en londres"
1 ;"INTRODUZCA EL "+N$+" A BUSCAR:"
1 ;"GRABANDO EL FICHERO"
1 ;"FIN DE LA BUSQUEDA. PULSE ENTER":
1 ;"FICHA NUMERO ";NF
1 ;"ELIJA EL CAMPO DE CLASIFICACION:"''" T - TITULO"''" A - AUTOR"
1 ;"CONTENIDO"
1 ;"AHORA ESCRIBA,
1 ;"3 - BUSCAR POR TEMA"
1 ;"2 - BUSCAR POR AUTOR";
1 ;"10 LET A$=""John vive en Londres""20 PRINT A$"'"30 LET L=
1 ;"1 - BUSCAR POR TITULOS";
1 ;"** DISCOTECA **"
1 ;" SE ACABO LA MEMORIA":
1 ;" QUIERE VER MAS FICHAS? (S/N)":
1 ;" QUIERE SEGUIR BUSCANDO? (S/N)":
1 ;" ORDENANDO POR TITULOS "
1 ;" ORDENANDO POR AUTORES ":
1 ;" ES CORRECTA ESTA LINEA? (S/N)":
1 ;" PULSE UNA TECLA PARA SEGUIR":
1 ;" 50 CARACTERES COMO MAXIMO":
1 ;" 30 CARACTERES COMO MAXIMO":
1 ;" NUMERO DE FICHAS: ";NTF
1 : LET L=USR 23400+LEN x$"
1 : LET L=USR 23300+LEN x$"''"
1 8*e\+++~++"e\&
1 38000
1 /TZX by Miguel A. Garcia Prada
1 ,A,A,A,A,A,A,A
1 ,,,,"CONTINUE CON EL CONTENIDO . PARA ACABAR ESCRIBA '*'"
1 , LOS TEMAS DEL DISCO."
1 *e\+V+^+++"e\
1 *"M";1;"DISCOTECA"
1 )+("AUTOR"
1 '"dara:"''
1 '"UPPER$ transforma todas las le- tras minusculas de una cadena a las correspondientes mayusculas.LOWER$ hace lo contrario (mayus-culas a minusculas)"
1 '"Para usarlas tienes que utilizarlineas similares a estas:"''"
1 '"Muchas versiones de BASIC inclu-yen dos funciones para manejo decadenas que el Spectrum no tiene"
1 '"Las rutinas se cargan en las li-neas 100-130 de este programa y son perfectamente reubicables. En este caso las hemos cargado en las direcciones 23300 y 23400"
1 '"Ejemplo:"''
1 '"Donde x$ es la variable reque- rida"
1 '"Ahora puedes utilizar estas fun-ciones de una forma rapida en tuordenador mediante dos cortas rutinas en codigo-maquina que tepresentamos"
1 '" BUSCANDO EL ";N$;":"'
1 '" V.- VER LAS FICHAS"
1 '" M.- MODIFICAR FICHAS"
1 '" G.- GRABAR EL FICHERO"
1 '" E.- ELIMINAR UNA FICHA"
1 '" C.- CLASIFICAR EL FICHERO"
1 '" B.- BUSCAR INFORMACION"
1 '" CLASIFICACION TERMINADA"
1 '" ELIJA UNA OPCION:"
1 $$$$$$$$$$$j
1 $$$$$$$$$$$$$*
1 ##^#V##"]\
1 "pero puedes cargarlas donde mas te convenga"
1 "NUMERO DE FICHA A MODIFICAR:";NF:
1 "M";1;"DISCOTECA":
1 "HASTA LA FICHA NUMERO ";A2:
1 "ESCRIBA LA NUEVA LINEA:"'D$(I)
1 "ESCRIBA EL TITULO DEL DISCO: "'I$:
1 "ESCRIBA EL NOMBRE DEL AUTOR:",I$:
1 "DISCOTECA"
1 "DESDE LA FICHA NUMERO ";A1:
1 "BORRAR FICHA NUMERO ? ";A1:
1 !!!!!!!!!:
1 !!!!!!!!!!!!*
1 !!!!!!!!!!!!!!j
1 UPPER$ & LOWER$"
1 SECOND PASS
1 SE ACABO
1 Rafael Garcia 1986"
1 Rafael Garcia 1986
1 REORGANIZANDO FICHERO
1 NO ERRORS
1 LOS . SI COGES UN CAES
1 LLEVA A LOS PROTRONES
1 FIRST PASS
1 Enter Spectrum Issue 13 (SIDE B)
1 ENTER SPECTRUM
1 EN UN PUNTO ALEATORIO
1 CAMBIO DE NIVEL
1 1983 Martin Lewis
1 - CREANDO MAPA -
1 SALVADOS:
1 RESTANTES:
1 '( '( ' '(( '( ' ( ( ' ( ( ( ( ( ( ( ( ( ( '' ( (( '' ( ' ' '' ' ( ' (( ' ' ' ' ( ( ' ' ( ' ( ' ' ( ' ' ( ' ' ( ( '
1 K - TECLADO (O,P,Q,A)
1 INTEGER COMPILER
1 ELIGE CONTROLES
1 *
1 PROTRONES
1 j
1
1